COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00005 ENDMK
C⊗;

.DEVICE XGP
.FONT 4 "BASB30"
.FONT 3 "BASI30"
.FONT 2 "BDR30"
.FONT 1 "BDR30"
.EVENLEFTBORDER←ODDLEFTBORDER←1000
.PAGE FRAME 52 HIGH 83 WIDE;
.AREA TEXT LINES 4 TO 50;
.TITLE AREA HEADING LINES 1 TO 3;
.PLACE TEXT;
.EVERY HEADING(,,{PAGE});
.BEGIN NOFILL
.VARIABLE CHW
.CHW ← CHARW
.TURN OFF "βα#\←∞↑↓∪"
.TURN ON "∂{%"
.TURN ON "/" FOR "α"
.AT "∂∂(" CH ")" ⊂ CHARW←CH}∂(2){CHARW←CHW ⊃


∂∂(48)%3reada%2[%3u%2, %3l%2] ← 
∂∂(80)%4if%2 %4n %3u%2 %4then%2 %3rev1%2[%3l%2, ERROR] . NIL
∂∂(80)%4else if%2 %4a %3u%2 %4eq %2RP %4then%2 %3reverse%2 %3l%2 . %4d %3u
∂∂(80)%4else if%2 %4a %3u%2 %4eq %2LP %4then%2 /{%3reada%2[%4d %3u%2, NIL]}[λ%3w%2. %3reada%2[%4d %3w%2, %4a %3w%2 . %3l%2]]
∂∂(80)%4else if%2 %4a %3u%2 %4eq %2DOT %4then%2 /{%3reada%2[%4d %3u%2, NIL]}[λ%3w%2. %3rev1%2[%3l%2, %4aa %3w%2] . %4d %3w%2]
∂∂(80)%4else%2 %3reada%2[%4d %3u%2, %4a %3u%2 . %3l%2]



∂∂(48)%3readb%2 %3u%2 ← %4if%2 %4a %3u%2 %4eq %2LP %4then%2 %4a %3reada%2[%4d %3u%2, NIL] %4else%2 %4a %3u



∂∂(48)rev1%2[%3u%2, %3v%2] ← %4if%2 %4n %3u%2 %4then%2 %3v%2 %4else%2 %3rev1%2[%4d %3u%2, %4a %3u%2 . %3v%2]



∂∂(48)%3prina%2[%3e%2, %3l%2] ← %4if%2 %4at %3e%2 %4then%2 %3e%2 . %3l%2 %4else%2 LP . %3prina%2[%4a %3e%2, DOT . %3prina%2[%4d %3e%2, RP . %3l%2]]



∂∂(48)%3prinb%2[%3e%2, %3l%2] ← 
∂∂(80)%4if%2 %4at %3e%2 %4then%2 %3e%2 . %3l
∂∂(80)%4else%2 LP
∂∂(138). [%4if%2 %4n d %3e%2 %4then%2 %3prinb%2[%4a %3e%2, RP . %3l%2]
∂∂(164)%4else if%2 %4at d %3e%2 %4then%2 %3prinb%2[%4a %3e%2, DOT . [%4d %3e%2 . [RP . %3l%2]]]
∂∂(164)%4else%2 %3prinb%2[%4a %3e%2, %4d %3prinb%2[%4d %3e%2, %3l%2]]]

.END